public subroutine SetTimeZone(timeZone, time)
Set the timezone of the datetime represented by this instance
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=*),
|
intent(in) |
|
|
:: |
timeZone |
|
|
type(DateTime),
|
intent(out) |
|
|
:: |
time |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
character(len=25),
|
public |
|
:: |
string |
|
|
|
Source Code
SUBROUTINE SetTimeZone &
!
(timeZone, time)
USE StringManipulation, ONLY : &
! Imported routines:
StringCompact
IMPLICIT NONE
! Arguments with intent(in):
CHARACTER (LEN = *), INTENT(IN) :: timeZone
! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time
! Local variables:
CHARACTER (LEN = 25) :: string
!------------end of declaration------------------------------------------------
string = time
string (20:25) = timeZone
time = string
CALL DateCheck (time)
END SUBROUTINE SetTimeZone
